VERSION 5.00
Begin VB.Form frmHAL 
   BackColor       =   &H00FFFFFF&
   Caption         =   "View/Edit Hold At Location Information"
   ClientHeight    =   3675
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6375
   Icon            =   "frmHAL.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   3675
   ScaleWidth      =   6375
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdCancel 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "Cancel"
      Height          =   315
      Left            =   3480
      MaskColor       =   &H0080C0FF&
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   3240
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdSave 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "Save/Exit"
      Height          =   315
      Left            =   1680
      MaskColor       =   &H0080C0FF&
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   3240
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.Frame Frame4 
      BackColor       =   &H00FFFFFF&
      Caption         =   " Enter the address where the FedEx package should be held "
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   3015
      Left            =   120
      TabIndex        =   9
      Top             =   120
      Width           =   6135
      Begin VB.ComboBox f50 
         Height          =   315
         Left            =   1800
         TabIndex        =   4
         Top             =   1800
         Width           =   3975
      End
      Begin VB.ComboBox f47 
         Height          =   315
         Left            =   1800
         TabIndex        =   2
         Top             =   1080
         Width           =   3975
      End
      Begin VB.TextBox f49 
         Height          =   315
         Left            =   1800
         TabIndex        =   6
         Top             =   2520
         Width           =   3975
      End
      Begin VB.TextBox f44 
         Height          =   315
         Left            =   1800
         TabIndex        =   0
         Top             =   360
         Width           =   3975
      End
      Begin VB.TextBox f12 
         Height          =   315
         Left            =   1800
         TabIndex        =   5
         Top             =   2160
         Width           =   3975
      End
      Begin VB.TextBox f48 
         Height          =   315
         Left            =   1800
         TabIndex        =   3
         Top             =   1440
         Width           =   3975
      End
      Begin VB.TextBox f46 
         Height          =   315
         Left            =   1800
         TabIndex        =   1
         Top             =   720
         Width           =   3975
      End
      Begin VB.Label Label9 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Telephone:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   16
         Top             =   2580
         Width           =   1575
      End
      Begin VB.Label Label8 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "City:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   780
         Width           =   1575
      End
      Begin VB.Label Label10 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Street address:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   420
         Width           =   1575
      End
      Begin VB.Label Label4 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "State/Province:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   13
         Top             =   1140
         Width           =   1575
      End
      Begin VB.Label Label5 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Zip/Postal Code:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   12
         Top             =   1500
         Width           =   1575
      End
      Begin VB.Label Label6 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Country:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   1860
         Width           =   1575
      End
      Begin VB.Label Label7 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Name:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   2220
         Width           =   1575
      End
   End
End
Attribute VB_Name = "frmHAL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------
' Procedure : cmdCancel_Click()
' DateTime  : 2/18/2004
' Purpose   : Cancel button hides form
'---------------------------------------------------------------------------------------
'
Private Sub cmdCancel_Click()
    Me.Hide
    frmShip.SetFocus
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdSave_Click()
' DateTime  : 2/18/2004
' Purpose   : Save button assigns HAL fields to global vars
'---------------------------------------------------------------------------------------
'
Private Sub cmdSave_Click()
    g_str44 = f44
    g_str46 = f46
    g_str47 = Left(f47, 2)
    g_str48 = f48
    g_str12 = f12
    g_str49 = f49
    
    Me.Hide
    frmShip.SetFocus
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f47_Change()
' DateTime  : 8/9/2004
' Purpose   : Calls a routine to populate the entire text of selected state.
'---------------------------------------------------------------------------------------
'
Private Sub f47_Change()
    If Len(f47) >= 2 Then
        Call SetComboSelection(f47, f47)
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f49_Change()
' DateTime  : 2/18/2004
' Purpose   : HAL Phone is numeric with a max length of 10
'---------------------------------------------------------------------------------------
'
Private Sub f49_Change()
    Call NumericOnly(f49, False)
    Call CheckLength(f49, 15)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f50_Change()
' DateTime  : 8/9/2004
' Purpose   : Calls a routine to populate the entire text of selected state.
'---------------------------------------------------------------------------------------
'
Private Sub f50_Change()
    If Len(f50) >= 2 Then
        Call SetComboSelection(f50, f50)
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f50_Click()
' Date      : 1/27/2005
' Purpose   : Load states if US, provinces if CA, else clear state combo
'---------------------------------------------------------------------------------------
'
Private Sub f50_Click()
    
    If Left(f50, 2) = "US" Then
        Call LoadStates(f47)
    ElseIf Left(f50, 2) = "CA" Then
        Call LoadProvinces(f47)
    Else
        f47.Clear
    End If

End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_Activate()
' DateTime  : 2/18/2004
' Purpose   : When form is shown HAL fields default to current shipper info
'---------------------------------------------------------------------------------------
'
Private Sub Form_Activate()
    
    'Set defaults based on current recipient on Ship screen
    With frmShip
        
        If f44 = "" Then f44 = .f13
        If f46 = "" Then f46 = .f15
        If f48 = "" Then f48 = .f17
        If f12 = "" Then f12 = .f12
        If f49 = "" Then f49 = .f18
        If f50 = "" Then f50 = .f50
            
        If Left(.f50, 2) = "US" Then
            Call LoadStates(f47, f47)
        ElseIf Left(.f50, 2) = "CA" Then
            Call LoadProvinces(f47, f47)
        Else
            f47.Clear
        End If

        If f47 = "" Then f47 = Left(.f16, 2)

    End With
    
    f44.SetFocus
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_KeyDown()
' DateTime  : 2/17/2005
' Purpose   : Enter key pressed sends a TAB to move to next field
'---------------------------------------------------------------------------------------
'
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Not TypeOf Me.ActiveControl Is CommandButton Then
        If Shift = 0 And KeyCode = 13 Then
            SendKeys "{TAB}"
        End If
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_Load()
' DateTime  : 2/18/2004
' Purpose   : When form loads, load State and Country combos. Set country to US.
'---------------------------------------------------------------------------------------
'
Private Sub Form_Load()
   
    'Initialize Countries combo
    Call LoadCountries(f50)

End Sub
